Dim ds As New DataSet
'判斷欄位是否存在
If ds.Tables(0).Columns.Contains("欄位名稱") = True Then
End If
'判斷欄位是否有值
If IsDBNull(ds.Tables(0).Rows(0).Item("欄位名稱")) Then
End If
'判斷是否日期格式
If IsDate(ds.Tables(0).Rows(0).Item("欄位名稱")) Then
End If
Function ContainsChtString(str) As Boolean |
02 | '檢查字串是否包含中文或全形字 |
03 | Dim i As Integer |
04 | Dim Rc As Boolean |
05 | Rc = False |
06 | For i = 1 To Len(str) |
07 | If Asc(Mid(str, i, 1)) < 0 Then |
08 | Rc = True |
09 | Exit For |
10 | End If |
11 | Next |
12 | ContainsChtString = Rc |
13 | End Function |