Public fieldName As String Public fieldTypes As String后发现两个库的同一张表，表结构有差异，于是又增加了表结构的对比，但万恶的xlsx呀，发现保存不上VBA，于是丢了。
Excel中用宏批量整理SQL脚本，生成ORACLE触发器语句(三)
ount
Set clsField = aCollection.Item(i)
If trgWhere = "" Then
trgWhere = clsField.fieldName + "=" + sufExtOld + "." + clsField.fieldName
fieldSQl = clsField.fieldName + "=" + sufExt + "." + clsField.fieldName
Else
trgWhere = trgWhere + " and " + clsField.fieldName + "=" + sufExtOld + "." + clsField.fieldName
fieldSQl = fieldSQl + "," + clsField.fieldName + "=" + sufExt + "." + clsField.fieldName
End If
Next i
trgSQL = trgSQL & vbCrLf & " SELECT COUNT(*) INTO v_count FROM " + tableName + "@" + destDb + " WHERE " + trgWhere + ";"
trgSQL = trgSQL & vbCrLf & " IF v_count >
0 THEN "
trgSQL = trgSQL & vbCrLf & " delete from " + tableName + "@" + destDb + " WHERE " + trgWhere + ";"
trgSQL = trgSQL & vbCrLf & " end if;"
trgSQL = trgSQL & vbCrLf & " END; "
getTrgDelete = trgSQL
End Function
ClassField类