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

posted on 2006-04-11 21:44  freeliver54  阅读(254)  评论(0)    收藏  举报

导航