主题：各种乱入都走不通

晕啊，Table ,DataTable分不清

 

要这种效果：点按钮，窗口表“标记”列所有行标记上“核算中”

 

Dim blbm As String = e.Form.Controls("Label03").Text

 

If MsgBox("将提交该批次(" & blbm & ")核算,确定提交?",65,"提示") = 1 Then

    Dim a As Table = Tables("登记_Table1")

    For r As Integer = a.rows.Count - 1 To 0 Step -1

        Dim dr As DataRow

        dr = DataTables("登记_Table1").DataRows(r)

        dr("标记") = "核算中"'

    Next

End If

With DataTables("明细")

    .LoadFilter = "[_Identify] Is Null"

    .Load()

End With