Question

VB编写代码的时候出现缺少语句结束时什么意思啊

nowChart.Column = 1
For introw = 1 To intyears
strSQL = "select*from tb_basicinfo where ugenger='男'"
strsql=strsql&"and uhiretime between# " & intfirstyear+introw-1 &_
"-1-1#and#" &intfirstyear + introw - 1 & "-12-31#"
Rst.Open strSQL, CnnPeopleDB, adOpenStatic
noechart.Row = introw
nowChar.Data = Rst.RecordCount
Set Rst = Nothing
Next

Answer 1

纠正SQL句字符串连接错误:
nowChart.Column = 1
For introw = 1 To intyears
strsql = "select*from tb_basicinfo where ugenger='男'"
strsql = strsql & "and uhiretime between# " & intfirstyear + introw - 1 & _
"-1-1#and#" & intfirstyear + introw - 1 & "-12-31#"
Rst.Open strsql, CnnPeopleDB, adOpenStatic
noechart.Row = introw
nowChar.Data = Rst.RecordCount
Set Rst = Nothing
Next

Answer 2

nowChart.Column = 1
For introw = 1 To intyears
strSQL = "select * from tb_basicinfo where ugenger='男'"
strsql=strsql&" and uhiretime between# " & intfirstyear+cstr(introw-1 )&_
"-1-1#and#" &cstr(intfirstyear + introw - 1) & "-12-31#"
Rst.Open strSQL, CnnPeopleDB, adOpenStatic
noechart.Row = introw
nowChar.Data = Rst.RecordCount
Set Rst = Nothing
Next