在其他表中添加一行，如下：
Select Case e.DataCol.Name
Case "付款属性"
If
e.NewValue = “其他应付”
Then
Dim nsma() As String = {"付款日期","付款金额","付款单位","备注","供应商"} 'A表数据来源列
Dim nsmb() As String = {"日期","其他应付_金额","单位","其他应付_说明","其他应付_单位"} 'B表数据接收列
Dim dsr As DataRow = DataTables("其他账务").AddNew
For i As Integer = 0 To nsma.Length - 1
dsr(nsmb(i)) = e.DataRow(nsma(i))
Next
End If
End Select
我希望B表的“其他应付_金额”是一个负值，也就是和 源列 中的 “付款金额”相反。
请教一下怎么写代码？
[此贴子已经被作者于2016/3/10 19:46:14编辑过]
加好友 
发短信
Post By：2016/3/10 19:38:00 [只看该作者]
