Private Function isDuplicateField(ByRef existMetaItems As CMetas(), ByVal currentFieldChName As String, ByVal currentVal As String) Dim isExist As Boolean = False For Each metaItem As CMetas In existMetaItems If metaItem Is Nothing Then Continue For End If If metaItem.MetaType = currentFieldChName Then If (Not String.IsNullOrEmpty(currentVal)) And String.IsNullOrEmpty(metaItem.MetaValue) Then metaItem.MetaValue = currentVal End If isExist = True Exit For End If Next Return isExist End Function

这段程序看起来是一个判断是否存在重复字段的函数，接收的参数包括一个已存在的 CMetas 数组、当前字段的中文名和当前值。该函数会遍历已存在的 CMetas 数组，判断是否存在与当前字段中文名相等的字段，如果存在则将当前值赋给该字段的 MetaValue 属性，并返回 True，表示存在重复字段；如果不存在，则返回 False，表示没有重复字段。