主题：[求助]组合框初始值(已解决)

一个案例，第一列为年月系列值，在窗口事件AfterLoad加入如下代码，要求打开项目后，在组合框内的初始值为年月系列值中最大值并取前四位，应该如何设置代码？请各位老师指教，谢谢！！

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT DISTINCT 第一列 From {表A}"
dt = cmd.ExecuteReader()
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("第一列")

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目90.table

可以使用SubString方法获得从指定位置开始的、指定长度的字符串。
SubString第一个参数指定开始位置，第二个参数可选，用于指定长度，如果省略这个参数，则返回自指定位置开始的全部字符，例如：

Dim s As String = "I Like Foxtable"
Output.Show(s.SubString(0,6)) '获得左边6个字符: I Like
Output.Show(s.SubString(s.Length - 8)) '获得右边8个字符:Foxtable
Output.Show(s.SubString(2,4)) '获得从第3个字符开始的4个字符: Like

Dim cmd As New SQLCommand
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT Max(Left(第一列,4)) From {表A}"
cmb = e.Form.Controls("ComboBox1")
cmb.Value = cmd.ExecuteScalar

谢谢ybil老师的指教，完全符合要求，又学了一招，万分感谢ybil老师的帮助，当然也要感谢狐爸的帮助。