下面的代码怎么改才能放到 按钮的事件中呢? Post By:2013/4/12 9:48:00 [只看该作者]
If e.Col.name = "发货" Then e.Row("状态")= 7 e.Row("发货时间")= Date.now e.Row("是否显示")=True End If
Dim Cols1() As String = {"取货id","取货商品名","客户名","已取数量","备注"} Dim Cols2() As String = {"取货id","商品名称","客户名","件数","备注"} Dim dr1 As Row = Tables("发货详单_table1").Current Dim dr2 As DataRow = DataTables("发货详单").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next