DataColChanged事件
Dim lx As String = e.DataRow("类型")
If lx <> Nothing Then Dim fdr As DataRow = DataTables("表A").find("省份 = '" & e.DataRow("省份") & "'") If fdr IsNot Nothing Then msgbox(fdr(lx & "_首重")) msgbox(fdr(lx & "_续重")) End If End If