征求作者南京医科大学张汝阳同意后,将他写的tabauto 发布,在此感谢计量经济版各位朋友老师,同时感谢张汝阳同志!
program drop _all
program define tabauto,rclass/*this is the sub_program for frept,only for rawdata*/
        syntax varlist(min=2) [in] [if],[missing]       
        token "`varlist'"
        local r_var="`1'"
        local c_var="`2'"
        qui tab `r_var' `c_var' `if' `in' `byoption',chi2

        if "`r(p)'"!=""{
                preserve
                        if "`missing'"!=""{
                                contract `r_var' `c_var' `if' `in' `byoption',freq(fre_q)
                        }
                        else{
                                contract `r_var' `c_var' `if' `in' `byoption',freq(fre_q) nomiss
                        }
       
                        qui sum fre_q
                        local sample=`r(sum)'
                        tempvar rowsum colsum
                        egen `rowsum'=total(fre_q),by(`r_var')
                        egen `colsum'=total(fre_q),by(`c_var')
                        qui sum `rowsum'
                        local rowmin=`r(min)'
                        qui sum `colsum'
                        qui local colmin=`r(min)'
                        local min_t=(`rowmin'*`colmin')/`sample'/*theoretical frequence*/
                restore,preserve

                if (`min_t'<1 | `sample'<40){
                        return local exact_auto="e"
                }
                else{
                        return local exact_auto=""
                }
        }
end

不要在意啊，我只是建议大家提问要说清楚，最好以下面的格式提问：
1.清楚明确的表明想问什么？
2.提问之前你自己做了什么努力？
3.有数据的至少要提供部分数据（Stata中可以很简单的对数据进行抽样）
4.涉及版权而与问题高度相关的东东，不一定要贴到论坛上来，但最好写清来源。

这样子提问可以让别人很快了解你的问题，而不至于在猜测你到底在问什么上花费心思。