我要DateList+input（全选，行选，但选）或者用checkbox代码，最好带ＳＱＬ语句１５０分就是你的拉

lz_mike 2007-12-05 07:05:51

明天晚上接帖１５０分看好了１５０分啊呵呵，我要详细的！
我要DateList中带input（全选，行选，单选）或者用checkbox代码，最好带ＳＱＬ语句＋
ＪＳ代码，１５０分就是你的拉！
呵呵　本来自己是可以写的，但项目马上交工．就做其他好做的．这个留给大家给我帮个忙
３Ｑ　３Ｑ　３Ｑ！！

...全文

113 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

he_yang 2007-12-06

打赏
举报

回复

你骗人

lz_mike 2007-12-06

打赏
举报

回复

！！！！！！！！！！！！！！！！！！！！

lz_mike 2007-12-06

打赏
举报

回复

!!!!！！！！！！！！！！！！！！！！！！！

lz_mike 2007-12-06

打赏
举报

回复

自己琢磨吧，ＣＳＤＮ３个月没来拉，来一次汗～～～～～～～～

lz_mike 2007-12-06

打赏
举报

回复

不会吧，没一个人回帖子～～～～～～～～～～～～～～

lz_mike 2007-12-05

打赏
举报

回复

我不要百度出来的，看了一下写的都不详细呵呵也许没搜到好的～
自己顶一下啊，最好带上分页控件．那么再加５０分．３Ｑ＋３Ｑ．．．

DATELIST分页公式化直接套用上下页指定页码首尾页

本人亲自调试通过。网上有一些这种类型的代码，但讲得不清楚。现在附上.aspx和.aspx.cs文件供大家参考。

刚刚接到领导通知，需要实现搜索功能，因为项目是vue的而且是手机端，对我来说有点小难度。经过小编的一番思索最终还是解决了，今天小编把实现过程分享到脚本之家平台，需要的朋友参考下

语言:English 您网站的在线预订小部件。允许您的客户使用您网站的“日期列表”预订小部件在线预订。

\'日期数据定义方法如下 \'前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天，第13位为闰月的情况，1为大月30天，0为小月29天，第14位为闰月的月 \'份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表示，即使用16进制。最后4位为当年农历新年-即农历1月1日所在公历 \'的日期，如0131代表1月31日。FunGetDate函数使用方式如下tYear为要输入的年，tMonth为月，tDay为 \'日期，YLyear是返回值，返加农历的年份，如甲子年，YLShuXing返回的是属象，如鼠。IsGetGongLi是设置是不是通过农历取公历值，如果是， \'前三个返回相应的公历日期，而且返回值是一个公历日期。 \'by lichangfeng mytoday2004@163.com 2007.4.5 5:30 Function FunGetDate(tYear As Integer, tMonth As Integer, tDay As Integer, YLyear As String, YLShuXing As String, Optional IsGetGongLi As Boolean) As String On Error Resume Next Dim dateList(1900 To 2011) As String * 18 Dim conDate As Date, setDate As Date Dim AddMonth As Integer, AddDay As Integer, AddYear As Integer, getDay As Integer Dim RunYue As Boolean If tYear > 2010 Or tYear < 1901 Then Exit Function \'如果不是有效有日期，退出 \'1900 to 2009 dateList(1900) = \"010010110110180131\" dateList(1901) = \"010010101110000219\" dateList(1902) = \"101001010111000208\" dateList(1903) = \"010100100110150129\" dateList(1904) = \"110100100110000216\" dateList(1905) = \"110110010101000204\" dateList(1906) = \"011010101010140125\" dateList(1907) = \"010101101010000213\" dateList(1908) = \"100110101101000202\" dateList(1909) = \"010010101110120122\" dateList(1910) = \"010010101110000210\" dateList(1911) = \"101001001101160130\" dateList(1912) = \"101001001101000218\" dateList(1913) = \"110100100101000206\" dateList(1914) = \"110101010100150126\" dateList(1915) = \"101101010101000214\" dateList(1916) = \"010101101010000204\" dateList(1917) = \"100101101101020123\" dateList(1918) = \"100101011011000211\" dateList(1919) = \"010010011011170201\" dateList(1920) = \"010010011011000220\" dateList(1921) = \"101001001011000208\" dateList(1922) = \"101100100101150128\" dateList(1923) = \"011010100101000216\" dateList(1924) = \"011011010100000205\" dateList(1925) = \"101011011010140124\" dateList(1926) = \"001010110110000213\" dateList(1927) = \"100101010111000202\" dateList(1928) = \"010010010111120123\" dateList(1929) = \"010010010111000210\" dateList(1930) = \"011001001011060130\" dateList(1931) = \"110101001010000217\" dateList(1932) = \"111010100101000206\" dateList(1933) = \"011011010100150126\" dateList(1934) = \"010110101101000214\" dateList(1935) = \"001010110110000204\" dateList(1936) = \"100100110111030124\" dateList(1937) = \"100100101110000211\" dateList(1938) = \"110010010110170131\" dateList(1939) = \"110010010101000219\" dateList(1940) = \"110101001010000208\" dateList(1941) = \"110110100101060127\" dateList(1942) = \"101101010101000215\" dateList(1943) = \"010101101010000205\" dateList(1944) = \"101010101101140125\" dateList(1945) = \"001001011101000213\" dateList(1946) = \"100100101101000202\" dateList(1947) = \"110010010101120122\" dateList(1948) = \"101010010101000210\" dateList(1949) = \"101101001010170129\" dateList(1950) = \"011011001010000217\" dateList(1951) = \"101101010101000206\" dateList(1952) = \"010101011010150127\" dateList(1953) = \"010011011010000214\" dateList(1954) = \"101001011011000203\" dateList(1955) = \"010100101011130124\" dateList(1956) = \"010100101011000212\" dateList(1957) = \"101010010101080131\" dateList(1958) = \"111010010101000218\" dateList(1959) = \"011010101010000208\" dateList(1960) = \"101011010101060128\" dateList(1961) = \"101010110101000215\" dateList(1962) = \"010010110110000205\" dateList(1963) = \"101001010111040125\" dateList(1964) = \"101001010111000213\" dateList(1965) = \"010100100110000202\" dateList(1966) = \"111010010011030121\" dateList(1967) = \"110110010101000209\" dateList(1968) = \"010110101010170130\" dateList(1969) = \"010101101010000217\" dateList(1970) = \"100101101101000206\" dateList(1971) = \"010010101110150127\" dateList(1972) = \"010010101101000215\" dateList(1973) = \"101001001101000203\" dateList(1974) = \"110100100110140123\" dateList(1975) = \"110100100101000211\" dateList(1976) = \"110101010010180131\" dateList(1977) = \"101101010100000218\" dateList(1978) = \"101101101010000207\" dateList(1979) = \"100101101101060128\" dateList(1980) = \"100101011011000216\" dateList(1981) = \"010010011011000205\" dateList(1982) = \"101001001011140125\" dateList(1983) = \"101001001011000213\" dateList(1984) = \"1011001001011A0202\" dateList(1985) = \"011010100101000220\" dateList(1986) = \"011011010100000209\" dateList(1987) = \"101011011010060129\" dateList(1988) = \"101010110110000217\" dateList(1989) = \"100100110111000206\" dateList(1990) = \"010010010111150127\" dateList(1991) = \"010010010111000215\" dateList(1992) = \"011001001011000204\" dateList(1993) = \"011010100101030123\" dateList(1994) = \"111010100101000210\" dateList(1995) = \"011010110010180131\" dateList(1996) = \"010110101100000219\" dateList(1997) = \"101010110110000207\" dateList(1998) = \"100100110110150128\" dateList(1999) = \"100100101110000216\" dateList(2000) = \"110010010110000205\" dateList(2001) = \"110101001010140124\" dateList(2002) = \"110101001010000212\" dateList(2003) = \"110110100101000201\" dateList(2004) = \"010110101010120122\" dateList(2005) = \"010101101010000209\" dateList(2006) = \"101010101101170129\" dateList(2007) = \"001001011101000218\" dateList(2008) = \"100100101101000207\" dateList(2009) = \"110010010101150126\" dateList(2010) = \"101010010101000214\" dateList(2011) = \"101101001010000214\" AddYear = tYear RunYue = False If IsGetGongLi Then AddMonth = Val(Mid(dateList(AddYear), 15, 2)) AddDay = Val(Mid(dateList(AddYear), 17, 2)) conDate = DateSerial(AddYear, AddMonth, AddDay) AddDay = tDay For i = 1 To tMonth - 1 AddDay = AddDay + 29 + Val(Mid(dateList(tYear), i, 1)) Next i \'MsgBox DateDiff(\"d\", conDate, Date) setDate = DateAdd(\"d\", AddDay - 1, conDate) FunGetDate = setDate tYear = Year(setDate) tMonth = Month(setDate) tDay = Day(setDate) Exit Function End If CHUSHIHUA: AddMonth = Val(Mid(dateList(AddYear), 15, 2)) AddDay = Val(Mid(dateList(AddYear), 17, 2)) conDate = DateSerial(AddYear, AddMonth, AddDay) setDate = DateSerial(tYear, tMonth, tDay) getDay = DateDiff(\"d\", conDate, setDate) If getDay < 0 Then AddYear = AddYear - 1: GoTo CHUSHIHUA \' addday = NearDay AddDay = 1: AddMonth = 1 For i = 1 To getDay AddDay = AddDay + 1 If AddDay = 30 + Mid(dateList(AddYear), AddMonth, 1) Or (RunYue And AddDay = 30 + Mid(dateList(AddYear), 13, 1)) Then If RunYue = False And AddMonth = Val(\"&H\" & Mid(dateList(AddYear), 14, 1)) Then RunYue = True Else RunYue = False AddMonth = AddMonth + 1 End If AddDay = 1 End If Next md$ = \"初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十\" dd$ = Mid(md$, (AddDay - 1) * 2 + 1, 2) mm$ = Mid(\"正二三四五六七八九十寒腊\", AddMonth, 1) + \"月\" YouGetDate = DateSerial(AddYear, AddMonth, AddDay) tiangan$ = \"甲乙丙丁戊已庚辛壬癸\" dizhi$ = \"子丑寅卯辰巳午未申酉戌亥\" Dim ganzhi(0 To 59) As String * 2 For i = 0 To 59 ganzhi(i) = Mid(tiangan$, (i Mod 10) + 1, 1) + Mid(dizhi$, (i Mod 12) + 1, 1) \'ff$ = ff$ + ganzhi(i) Next i \'MsgBox ff$, , Len(ff$) YLyear = ganzhi((AddYear - 4) Mod 60) shu$ = \"鼠牛虎兔龙蛇马羊猴鸡狗猪\" YLShuXing = Mid(shu$, ((AddYear - 4) Mod 12) + 1, 1) If RunYue Then mm$ = \"闰\" + mm$ FunGetDate = mm$ + dd$ End Function \'添加三个combobox控件 \'四个标签\"年\"\"月\"\"日\",其中一个caption为空name 为lb作为显示日期的容器 Private Sub Combo1_Click() Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean yOn = False If Check1.Value = 1 Then yOn = True End If lb.Caption = FunGetDate(Combo1.Text, Combo2.Text, Combo3.Text, yl, sx, yOn) & \" \" & yl & \" \" & sx End Sub Private Sub Combo2_Click() com11 = Combo3.Text Combo3.Clear Select Case Combo2.Text Case 1 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 2 If Combo1.Text Mod 4 <> 0 Then For i = 1 To 28 Combo3.AddItem i, i - 1 Next Else For i = 1 To 29 Combo3.AddItem i, i - 1 Next End If Case 3 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 4 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 5 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 6 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 7 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 8 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 9 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 10 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 11 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 12 For i = 1 To 31 Combo3.AddItem i, i - 1 Next End Select Combo3.Text = com11 Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean yOn = False If Check1.Value = 1 Then yOn = True End If lb.Caption = FunGetDate(CInt(Combo1.Text), CInt(Combo2.Text), CInt(com11), yl, sx, yOn) & \" \" & yl & \" \" & sx End Sub Private Sub Combo3_Click() Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean yOn = False If Check1.Value = 1 Then yOn = True End If lb.Caption = FunGetDate(CInt(Combo1.Text), CInt(Combo2.Text), CInt(Combo3.Text), yl, sx, yOn) & \" \" & yl & \" \" & sx End Sub Private Sub Form_Load() For i = 1900 To 2011 Combo1.AddItem i, i - 1900 Next For i = 1 To 12 Combo2.AddItem i, i - 1 Next Select Case Combo2.Text Case 1 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 2 If Combo1.Text Mod 4 <> 0 Then For i = 1 To 28 Combo3.AddItem i, i - 1 Next Else For i = 1 To 29 Combo3.AddItem i, i - 1 Next End If Case 3 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 4 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 5 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 6 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 7 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 8 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 9 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 10 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 11 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 12 For i = 1 To 31 Combo3.AddItem i, i - 1 Next End Select Combo1.Text = Year(Now) Combo2.Text = Month(Now) Combo3.Text = Day(Now) End Sub

62,243

社区成员

668,998

社区内容

发帖

与我相关

我的任务

javascript云原生企业社区

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章