在要注释的函数上方添加 ‘’‘ （三个）
公司主营业务：网站设计制作、成都网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出磐石免费做网站回馈大家。
会自动弹出！
'''summary
''' 这个是函数说明
'''/summary
'''returns返回说明/returns
'''remarks/remarks
详情参考：
注意：参数为动态数组；
Private Function MyF(ByRef d() As Integer)
ReDim d(4, 13) As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim MyNum(4) As Integer
For i = 1 To 4
MyNum(i) = 0
Next i
Randomize
For i = 1 To 4
For j = 1 To 13
n = Int(Rnd * 4 + 1)
Do While MyNum(n) = 13
n = Int(Rnd * 4 + 1)
Loop
d(i, j) = n
MyNum(n) = MyNum(n) + 1
Next j
Next i
End Function
myAdpt.Fill(DataSet1, "1")
你把dataset中填充的fill表定义为了1
尝试下myAdpt.Fill(DataSet1, " 学生表")
或则直接myAdpt.Fill(DataSet1)
请参看fill的方法，一共有2种
DATEADD (datepart , number, date )
number
是一个表达式，可以解析为与 date 的 datepart 相加的 int。用户定义的变量是有效的。
如果您指定一个带小数的值，则将小数截去且不进行舍入。
date
是一个表达式，可以解析为 time、date、smalldatetime、datetime、datetime2 或 datetimeoffset 值。date 可以是表达式、列表达式、用户定义的变量或字符串文字。如果表达式是字符串文字，则它必须解析为一个 datetime 值。为避免不确定性，请使用四位数年份。有关两位数年份的信息，请参阅 two digit year cutoff 选项。
