ElseIf e.DataRow("余额") < 0 Then
e.DataRow("方向") = "贷"
systemready = false
e.DataRow("余额") = -1 * e.DataRow("余额")
Else