For Each sj As DataRow In DataTables("工资表").DataRowsIf sj.IsNull("姓名")=False sj("工资月份") = nian.Value & "年" & yue.Value & "月" End IfNext
Dim dr As DataRowdr = DataTables("工资总表").find(" [工资月份] = sj("工资月份") ")If dr IsNot Nothing MessageBox.Show("此月工资已经存在!")
提示 :应为逗号、“)”或有效的表达式继续符。
错误代码:dr = DataTables("工资总表").find(" [工资月份] = sj("工资月份") ")