十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
你的i = Len(Str(a))会出问题。
站在用户的角度思考问题,与客户深入沟通,找到金城江网站设计与金城江网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都网站制作、成都做网站、企业官网、英文网站、手机端网站、网站推广、域名注册、网络空间、企业邮箱。业务覆盖金城江地区。
If i 1 Then
Return True
End If
这个返回在if内部,当条件不满足将导致函数无返回。
以下代码仅供参考:
Function IsH(ByVal a As Long) As Boolean
Dim i As Long, j As Long, t As String
t = a.ToString
i = t.Length
Select Case i
Case 1
Return True
Case 2
If Mid(t, 1, 1) = Mid(t, 2, 1) Then Return True Else Return False
Case 3
If Mid(t, 1, 1) = Mid(t, 3, 1) Then Return True Else Return False
Case Else
For j = 1 To i \ 2
If Mid(t, j, 1) Mid(t, i - j + 1, 1) Then Return False
Next j
End Select
Return True
End Function
直接用datatable的Select选项,筛选出来是一个Datarow组,然后再循环它就可以了。
Dim dtrs as DataRow() =dataset.datatable.Select("列名 = '条件' ")
if dtr.rows 0 Then
for each dtr as DataRow in dtrs
'你的处理代码~
next
endif
有一个字符串函数:Instr(n,S1,S2)
该函数的功能:从字符串S1的左起第N位开始,向右逐位进行搜索匹配字符串S2,如果找到匹配,就返回一个整数指明匹配的位置,否则就返回0。如果缺省n,就是默认从字符串S1的左起第1位开始,进行搜索匹配字符串S2。
例如1:Instr(1,"abcde","a"),返回1
例如2:Instr(3,"abcde","a"),返回0
例如3:Instr(1,"abcde","c"),返回3
例如4:Instr(1,"abcde","cde"),返回3
例如5:Instr(4,"ab12cd12e12","12"),返回7,这里从字符串"ab12cd12e12"左起第4位开始向右搜索匹配字符串"12",找到的是中间一个“12”,这个“12”是位于字符串"ab12cd12e12"左起的第7个字符。
而:Instr(1,"ab12cd12e12","12"),返回3
Instr("ab12cd12e12","12"),返回3