With 特殊用法
With objDT.Rows.Item(0)
If .Item("SRNO_CODE").ToString.Trim <> "" Then
''MASTER.SRNO_CODE <> "" 則送達MASTER.UNIT_CODE_MASTER
strDOWN_UNIT = .Item("UNIT_CODE_MASTER").ToString.Trim
Else
strDOWN_UNIT = .Item("UNIT_CODE").ToString.Trim
End If
End With
If .Item("SRNO_CODE").ToString.Trim <> "" Then
''MASTER.SRNO_CODE <> "" 則送達MASTER.UNIT_CODE_MASTER
strDOWN_UNIT = .Item("UNIT_CODE_MASTER").ToString.Trim
Else
strDOWN_UNIT = .Item("UNIT_CODE").ToString.Trim
End If
End With
posted on 2006-04-11 21:44 freeliver54 阅读(254) 评论(0) 收藏 举报
浙公网安备 33010602011771号