e.form.controls("comboxbox111").items.clear
for each v as string in datatables("aaa").Getvalues("日期")
dim d as date = v
e.form.controls("comboxbox111").items.add(format(d,"yyyy-MM-dd"))
next