2个小问题，在线等待。

Question

修改注册表的键值，
到这里看看，你设置，然后撤消，看看有什么不同。
HKEY_USERS\.DEFAULT\Control Panel\International
查查以前的贴子，有的。

Answer 1

Dim shortDateFormat As String
 Dim lBuffSize As String
 Dim sBuffer As String
 Dim lRetGet As Long
 Dim lRetSet As Long
sub form_load()lBuffSize = 256
    sBuffer = String$(lBuffSize, vbNullChar)
    'get the date information in buffer
    lRetGet = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, sBuffer, lBuffSize)    If lRetGet > 0 Then
        shortDateFormat = Left$(sBuffer, lRetGet - 1)
        'this is the existing format of machine
   End If
    'to change the format if doesn't matches ur format
    'MM should be used in capital for monyhs,small m are for minutes
    If LCase(shortDateFormat) <> "yyyy-mm-dd" Then
      lRetSet = SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, "yyyy-MM-dd")'on sucess lretset have value greater than 0
        If lRetSet <= 0 Then
             MsgBox "日期格式没有变化！", 64, "格式显示"
             
        End If
    End Ifend sub

Answer 2

distinctrow 收集任一字段都不同所有行数据
distinct 针对第一字段的不同值

Answer 3

你可以用format函数啊…！！！